home *** CD-ROM | disk | FTP | other *** search
/ Apple II Magazines (PO) / Nibble Volume 10, No. 10 (1989-10)(MindCraft Publishing)(Side A)[a].zip / Nibble Volume 10, No. 10 (1989-10)(MindCraft Publishing)(Side A)[a].po / AMPER.PEEKER.S < prev    next >
Text File  |  1996-12-24  |  3KB  |  103 lines
  1. *********************************
  2. * AMPER.PEEKER SOURCE CODE      *
  3. * BY CHRIS MEYER                *
  4. * COPYRIGHT(C) 1989             *
  5. * MINDCRAFT PUBL. CORP.         *
  6. * CONCORD, MA 01742             *
  7. * EDITOR ASSEMBLER              *
  8. *********************************
  9.            ORG $300
  10.                          ;
  11.                          ; EQUATES
  12. VARADR     EQU $83
  13. TEMP3      EQU $D6
  14. TEMP2      EQU $FA
  15. ADR        EQU $FC
  16. TEMP       EQU $FE
  17. VECTOR     EQU $3F5            ;& JUMP VECTOR
  18. CHECKC     EQU $DEBE           ;CHECK FOR COMMA
  19. GETVAR     EQU $DFE3           ;EVALUATES VARIABLE
  20. ERROR      EQU $FF2D           ;PRINT "ERR"
  21.            JMP BEGIN
  22.                          ;
  23.                          ; SCREEN ADDRESSES
  24.                          ;
  25. VTAB1      DFB $04,$04,$05,$05,$06,$06,$07,$07
  26.            DFB $04,$04,$05,$05,$06,$06,$07,$07
  27.            DFB $04,$04,$05,$05,$06,$06,$07,$07
  28. VTAB2      DFB $00,$80,$00,$80,$00,$80,$00,$80
  29.            DFB $28,$A8,$28,$A8,$28,$A8,$28,$A8
  30.            DFB $28,$A8,$28,$A8,$28,$A8,$28,$A8
  31.            DFB $50,$D0,$50,$D0,$50,$D0,$50,$D0
  32. BEGIN      LDA #$4C            ;SETS UP
  33.            STA VECTOR          ;& VECTOR
  34.            LDA #START
  35.            STA VECTOR+1
  36.            LDA START+2
  37.            STA VECTOR+2
  38.            RTS 
  39.                          ;
  40.                          ; MAIN PROGRAM
  41.                          ;
  42. START      JSR GETVAR
  43.            LDA VARADR
  44.            STA TEMP2
  45.            LDA VARADR+1
  46.            STA TEMP2+1
  47.            JSR CHECKC
  48.            JSR GETVAR
  49.            LDY #0
  50.            LDA (VARADR),Y
  51.            STA TEMP
  52.            INY 
  53.            LDA (VARADR),Y
  54.            STA TEMP+1
  55.            JSR CHECKC
  56.            JSR GETVAR
  57.            LDY #0
  58.            LDA (VARADR),Y
  59.            STA TEMP3
  60.            INY 
  61.            LDA (VARADR),Y
  62.            STA TEMP3+1
  63.                          ;
  64.                          ; CHECK FOR ERROR
  65.                          ;
  66.            LDA TEMP
  67.            BNE ERR
  68.            LDA TEMP+1
  69.            CMP #41
  70.            BCS ERR
  71.            LDA TEMP3
  72.            BNE ERR
  73.            LDA TEMP3+1
  74.            CMP #25
  75.            BCS ERR
  76.            JMP GOOD
  77.                          ;
  78.                          ; PRINT ERROR
  79.                          ;
  80. ERR        JMP ERROR
  81.                          ;
  82.                          ; NO ERROR, SO CONTINUE
  83.                          ;
  84. GOOD       LDY TEMP3+1
  85.            LDA VTAB1-1,Y
  86.            STA ADR+1
  87.            LDA VTAB2-1,Y
  88.            STA ADR
  89.            LDA ADR
  90.            BNE *+4
  91.            DEC ADR+1
  92.            DEC ADR
  93.            LDY TEMP+1
  94.            LDA (ADR),Y
  95.            PHA 
  96.            LDA #0
  97.            TAY 
  98.            STA (TEMP2),Y
  99.            INY 
  100.            PLA 
  101.            STA (TEMP2),Y
  102.            RTS 
  103.